home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / V-TPUG Programming Contest / (n)v1.d64 / topography (.txt) < prev    next >
Commodore BASIC  |  2009-01-19  |  5KB  |  115 lines
  1. 10 GOTO60
  2. 20 "
  3. 30 SUBMITED SUMMER '86     [164] TPUG [154]EST                             BY JAMES DUGGAN
  4. 40 "162 TWEEDSMUIR DR.    NORTH BAY, ONTARIO         P1A 3T6
  5. 50 "
  6. 60 [151]36879,8
  7. 70 [153]"SYSLOAD THE PURPOSE OF THIS  PROGRAM IS TO         TEACH A BIT ABOUT ";
  8. 80 [153]"    TOPOGRAPHY BY USING A COMPUTER MAP."
  9. 90 [153]" YOU MUST INDICATE    WHAT ITEM THE YELLOW  '(null)' SYMBOL IS UNDER ONTHE MAP ";
  10. 100 [153]"BY MEANS OF A LETTER BEING PRESSED."
  11. 110 [153]" YOU WILL HAVE SOME   TIME TO STUDY THE     ITEMS REQUIRED TO     KNOW ";
  12. 120 [153]"FOR THIS PROGRAM BEFORE EACH QUESTION.":[153]:[153]"    PRESS ANY KEY WAIT"
  13. 130 [141]1130:[141]1100
  14. 140 [153]"THE COMMANDS FOR THISPROGRAM ARE:CMDCMDCMDXSYS=HELP"
  15. 150 [153]"         ZSYS=SEE MAP"
  16. 160 [153]"         VSYS=CHANGE                QUESTION          SPCSYSWAIT=ANSWER IT"
  17. 170 [153]" YOU MAY ONLY USE THE HELP COMMAND ONCE     EVERY QUESTION."
  18. 180 [153]"ONON    PRESS ANY KEY WAIT"
  19. 190 [141]1130:[141]1100
  20. 200 [153]"YOU WILL BE ASKED    TWENTY QUESTIONS PER  ROUND."
  21. 210 [153]"YOU MAY BE ASKED THE SAME QUESTION TWICE   PER ROUND, BUT THAT'S TO YOUR "
  22. 220 [153]"ADVANTAGE."
  23. 230 [153]"      GOOD LUCK!"
  24. 240 [153]"ONON    PRESS ANY KEY WAIT"
  25. 250 [141]1130:[141]1100:[141]1140
  26. 260 C[178]0:S[178]0
  27. 270 [141]1080
  28. 280 [153]"LOADWAIT                PAGE 1SYS-PAVED ROAD(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)SYS-TRAIN TRACKS(null)(null)(null)(null)(null)(null)(null)(null)";
  29. 290 [153]"(null)SYS-PATH.................SYS-LI";
  30. 300 [153]"GHTHOUSE          *SYS-PORT                (null)SYS-BUILDINGS          RNDCOSWAITSYS";
  31. 310 [153]"-CEMETARY          [C]SYS-PETROLIUM RESERVOIR .SYS-PIPE LINELENLENLENLENLENLENLENLENLENLENLENLEN"
  32. 320 [141]1130:[141]1120:[141]1130:[153]"LOAD";:[141]1140
  33. 330 [153]"                PAGE 2SYS-TELEPHONE LINE>>>>>>>SYS-WATER RESERVOIR    ()";
  34. 340 [153]"SYS-MINE                (null)";
  35. 350 [153]"SYS-FENCE(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)SYS-SEASONAL FLOOD-------WAITSYS-SWAMP LANDSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(";
  36. 360 [153]"SPC(SPC(SYS-BRIDGE            >-<SYS-RAPIDS:::::::::::::::WAITSYS-PICNIC GROUNDS";
  37. 370 [153]"     OR^CMDCMDTAB(TAB("
  38. 380 [141]1130:[141]1120:[141]1130:[153]"LOAD":[141]1140
  39. 390 [141]560:[137]870
  40. 400 [141]410:[137]480
  41. 410 [153]"LOADWAIT SYSA=PAVED ROAD          B=TRAIN TRACKS        C=PATH"
  42. 420 [153]" D=LIGHTHOUSE          E=PORT                F=BUILDINGS           G=CEMETARY"
  43. 430 [153]" H=PETROLIUM RESERVOIR I=PIPE LINE           J=TELEPHONE LINE"
  44. 440 [153]" K=WATER RESERVOIR     L=MINE                M=FENCE"
  45. 450 [153]" N=SEASONAL FLOOD      O=SWAMP LAND          P=BRIDGE             ";
  46. 460 [153]" Q=RAPIDS              R=PICNIC GROUNDS     ANSWER?";
  47. 470 [141]1130:[142]
  48. 480 [141]1100
  49. 490 [153]E$"CMD";:[141]1140
  50. 500 [139]E$[178]"X"[167]H[178]H[170]1:[139]H[178]1[167]280
  51. 510 [139]E$[178]"Z"[167][141]560:[141]1120:[137]400
  52. 520 [139]E$[178]"V"[167][141]970:[137]270
  53. 530 [139][198](E$)[179]65[176][198](E$)[177]82[167]480
  54. 540 [153]E$"CMD";:[141]1140:[139]E$[178]A$[167]940
  55. 550 [137]960
  56. 560 [153]"LOADCMD                       WAIT   ->(null)()FN  WAIT(null) LEFT$RND WAIT RND STEP  WAIT";
  57. 570 [153]">>>(null)  LEFT$ FN (null)(null)WAIT LEFT$        WAIT(null)(null)    # (null)(null)>-<(null)   SPC(NOT   WAIT  (null)";
  58. 580 [153]"   THEN  TAB((null)(null)(null)WAITNOTNOTSPC(SPC(SPC(STEP   WAIT   (null)(null)(null)THEN    (null)(null):::(null)WAITSPC(    WAIT     THENTHEN    THEN   ";
  59. 590 [153]"(null):     WAIT [C] (null)THEN    THEN    USRPOS    WAIT    (null) THEN  COSWAIT(null)(null)     -    WAIT   (null)";
  60. 600 [153]"  THEN    THEN..OR^ -    WAIT  (null)   (null)    THEN  TAB(TAB( -    WAIT(null)(null)   THEN  .COS THEN     -";
  61. 610 [153]"    WAIT     (null)     THEN     *    WAITTOTO  THENCOSWAIT* SIN  THEN    STEP     WAITRND (null)TO(null)";
  62. 620 [153]"TOTOTOTOTOTO(null)          WAIT SINWAIT (null)TAB( COSRNDRNDCOSLOG           WAIT  THEN   COSCOSWAIT  RND*     ";
  63. 630 [153]"    WAIT  (null)(null)(null)(null)COSWAIT   RND    *      WAIT (null)(null)   (null)  RND     STEP      WAITTHEN(null)     (null)(null)(null)";
  64. 640 [153]"    (null)       WAIT(null)(null)        (null)         "
  65. 650 [153]""C:[153]"CMD                       ";
  66. 660 [141]1140
  67. 670 [139]R[178]1[167]A$[178]"A":X[178]97
  68. 680 [139]R[178]2[167]A$[178]"B":X[178]401
  69. 690 [139]R[178]3[167]A$[178]"C":X[178]233
  70. 700 [139]R[178]4[167]A$[178]"D":X[178]412
  71. 710 [139]R[178]5[167]A$[178]"E":X[178]455
  72. 720 [139]R[178]6[167]A$[178]"F":X[178]383
  73. 730 [139]R[178]7[167]A$[178]"G":X[178]179
  74. 740 [139]R[178]8[167]A$[178]"H":X[178]273
  75. 750 [139]R[178]9[167]A$[178]"I":X[178]249
  76. 760 [139]R[178]10[167]A$[178]"J":X[178]49
  77. 770 [139]R[178]11[167]A$[178]"K":X[178]52
  78. 780 [139]R[178]12[167]A$[178]"L":X[178]209
  79. 790 [139]R[178]13[167]A$[178]"M":X[178]182
  80. 800 [139]R[178]14[167]A$[178]"N":X[178]260
  81. 810 [139]R[178]15[167]A$[178]"O":X[178]150
  82. 820 [139]R[178]16[167]A$[178]"P":X[178]100
  83. 830 [139]R[178]17[167]A$[178]"Q":X[178]147
  84. 840 [139]R[178]18[167]A$[178]"R":X[178]258
  85. 850 [153]"";:[129]T[178]1[164]X:[153]"";:[130]:[153]"SYSWAIT(null)":[141]1130
  86. 860 [142]
  87. 870 [153]"WAITSYSCOMMAND?";
  88. 880 [141]1100
  89. 890 [153]E$"CMD";:[141]1140
  90. 900 [139]E$[178]"X"[167]H[178]H[170]1:[139]H[178]1[167]280
  91. 910 [139]E$[178]"V"[167][141]410:[141]970:[137]270
  92. 920 [139]E$[178]" "[167]400
  93. 930 [137]880
  94. 940 [153]"CORRECT":[141]1130:[141]1140:S[178]S[170]1
  95. 950 [137]270
  96. 960 [153]"WRONGCMDCMDCMDCMDCMD";:[141]1130:[141]1140:[141]970:[137]270
  97. 970 [153]"CMDCMDCMDCMDCMDCMDCMDIT WAS      CMDCMDCMDCMDCMD"A$:[141]1130:[141]1120:[141]1140:[141]560:[141]1120
  98. 980 [142]
  99. 990 PC[178][181](S[173]20[172]10000[170]0.5)[173]100
  100. 1000 [153]"LOAD     OUT OF 20:":[153]" NUMBER RIGHT:";S:[153]" NUMBER WRONG:";20[171]S
  101. 1010 [153]"   PERCENTAGE:";PC
  102. 1020 [139]HS[179]PC[167]HS[178]PC
  103. 1030 [153]"   HIGH SCORE:";HS:[153]"     PLAY AGAIN?";
  104. 1040 [141]1100
  105. 1050 [139]E$[178]"Y"[167][153]E$:[141]1140:[137]250
  106. 1060 [139]E$[178]"N"[167][153]E$:[141]1140:[128]
  107. 1070 [137]1040
  108. 1080 R[178][181]([187](1)[172]18)[170]1:H[178]0:C[178]C[170]1:[139]C[178][177]20[167]990
  109. 1090 [142]
  110. 1100 [161]E$:[139]E$[178]""[167] 1100
  111. 1110 [141]1130:[142]
  112. 1120 [129] T[178]1[164]2500:[130]T:[142]
  113. 1130 [151]36878,15:[151]36876,220:[129]L[178]1[164]5:[130]L:[151]36878,0:[142]
  114. 1140 [129]T[178]1[164]500:[130]T:[142]
  115.